www.gusucode.com > 环保时代家庭财务管理系统 EPffms v4.0 > 环保时代家庭财务管理系统 EPffms v4.0\code\eptimehome\admin_datarelate.asp

    <!--#include file="admin_inc.asp"-->
<%
'****************************************************
'Code for EptimeFFMS
'Vision : v4.0
'****************************************************
server.scripttimeout=99999
viewHead "数据库相关操作" & "-" & menuList(8,0)
dim action : action = getForm("action", "get")
dim sql : sql = getForm("sql","post")
dim table : table= getForm("TableName","post")
dim errIds

Select  case action
	case "sql" : executeSql
	case "result" : executeSql : executeResult
End Select 
viewFoot

Sub executeSql
%><div class="container" id="cpcontainer">
<form  method="post" action="?action=result">
<table class="tb">
    <tr class="thead"><td>SQL高级助手</td></tr>
    <tr><td><input type="text" name="sql" size="90" value="<%=sql%>"> <input type="submit" class="btn"  value="执行SQL语句">  <input type="reset" value="清除" class="btn"></td></tr>
	<tr><td>
	1: 列出所有帐目  select * from shiwei_money<br/>
	2: 列出所有大分类  select * from money_bigclass<br/>
	3: 列出所有小分类  select * from money_smallclass<br/><br/>
	</td></tr>
</table>
</form></div>
<script type="text/JavaScript">if(parent.$('admincpnav')) parent.$('admincpnav').innerHTML='首页&nbsp;&raquo;&nbsp;<%=menuList(8,0)%>&nbsp;&raquo;&nbsp;SQL高级助手';</script>
<%	
End Sub

Sub executeResult
	dim isSelect,resultRs,errorFlag,errObj,fieldObj,i,exeResultNum,n : n=0
	if not isNul(sql) then
		isSelect = (lcase(left(trim(Sql),6)) = "select")
		on error resume next
		if isSelect = true then Set resultRs = conn.dbConn.execute(sql,exeResultNum) else conn.dbConn.execute sql,exeResultNum
		If conn.dbConn.Errors.count<>0 then errorFlag = true : set resultRs = conn.dbConn.Errors else errorFlag = False
		if errorFlag then
%>
<table class="tb">
<tr> <td> 错误号</td><td> 来源</td><td> 描述</td><td>帮助</td><td> 帮助文档</td> </tr>
<%
			for i=1 To conn.dbConn.Errors.count
				set errObj=conn.dbConn.Errors(i-1)
%>
<tr> <td> <% = errObj.Number %> </td><td> <% = errObj.Description %> </td><td>  <% = errObj.Source %> </td><td>  <% = errObj.Helpcontext %> </td><td> <% = errObj.HelpFile %> </td></tr>
<%
			next
%>
</table>		
<%		
		else
%>
<table class="tb">
<%
			if isSelect = true then
%>
<tr> 
<%
					for each fieldObj in resultRs.Fields
%>
					  <td nowrap class=forumrow> <% = fieldObj.name %></td>
<%
					next
%>
					</tr>
<%
					do while Not resultRs.Eof
						n=n+1 : if n>100 then exit do
%>
					<tr > 
<%
						for each fieldObj In resultRs.Fields
%>
					  <td nowrap class=forumrow>
<%
							if  isNul(fieldObj.value) then 
								echo "&nbsp;"
							else
								if len(fieldObj.value)>50 then echo left(filterStr(fieldObj.value,"html"),10)&"..." else echo fieldObj.value						
							end if
%>
						</td>
					  <%
						next
			%>
					</tr>
					<%
						resultRs.MoveNext
					loop
			else
			%>
					<tr> <td>执行结果</td></tr>
					<tr> <td> <% = exeResultNum & "条纪录被影响"%></td></tr>
		  <%end if%>
			  </table>
<%			
		end if	 
	end if
	Set resultRs = Nothing
End Sub

%>